home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 6 / CDL_N6.iso / mac / CD Loisirs N°6 / PaperPlanes / Paper Planes / Planes / 00052.ls < prev    next >
Encoding:
Text File  |  1994-08-25  |  347 b   |  17 lines
  1. on mouseDown
  2.   puppetSprite(the clickOn, 1)
  3.   buttonDown(the clickOn, the number of cast "ExitNorm", the number of cast "ExitHiLite")
  4. end
  5.  
  6. on mouseUp
  7.   global WhichMenu
  8.   set test to buttonUp(the clickOn)
  9.   puppetSprite(the clickOn, 0)
  10.   if test then
  11.     cursor(4)
  12.     removeMainUI()
  13.     set WhichMenu to "Exit"
  14.     go(the frame + 2)
  15.   end if
  16. end
  17.